home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / ma.dir / 00003_athlete list.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  573 b   |  20 lines
  1. on doMAathList
  2.   global MAathList, MAiconList
  3.   set MAathList to [:]
  4.   set MAiconList to [:]
  5.   set vText to the text of cast "ClueDB"
  6.   set vlines to the number of lines in vText
  7.   repeat with vLine = 1 to vlines
  8.     set vData to line vLine of vText
  9.     set vName to item 1 of vData
  10.     set vNum to value(item 2 of vData)
  11.     set vClues to []
  12.     set vItems to the number of items in vData
  13.     repeat with vItem = 3 to vItems
  14.       add(vClues, item vItem of vData)
  15.     end repeat
  16.     setaProp(MAathList, vName, vNum)
  17.     setaProp(MAiconList, vNum, vClues)
  18.   end repeat
  19. end
  20.